home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
80 lines
100 REM
110 REM SPRITEDATEN RECHTS GEHEN
120 REM
130 PRINT"[147]SPRITE-DATEN 1 WERDEN UEBERTRAGEN."
140 REM *********PHASE 1*************
150 FOR N=8192 TO 8254:READ Q:POKE N,Q:NEXT
160 DATA 0,160,0,2,168,0,2,145,64
170 DATA 10,85,64,10,85,0,40,84,0
180 DATA 0,208,0,0,240,0,1,124,0
190 DATA 5,255,0,23,255,0,23,255,64
200 DATA 5,255,80,1,252,80,0,168,0
210 DATA 0,170,0,2,250,128,10,194,128
220 DATA 91,2,128,92,6,128,21,69,84
230 REM *********PHASE 2*************
240 FOR N=8256 TO 8318:READ Q:POKE N,Q:NEXT
250 DATA 0,160,0,2,168,0,2,145,64
260 DATA 10,85,64,10,85,0,40,84,0
270 DATA 0,208,0,0,240,0,3,124,0
280 DATA 1,127,0,1,255,0,5,255,0
290 DATA 1,255,64,1,125,64,0,105,0
300 DATA 0,170,0,0,250,0,2,186,0
310 DATA 10,202,0,27,40,0,21,85,64
320 REM *********PHASE 3*************
330 FOR N=8320 TO 8382:READ Q:POKE N,Q:NEXT
340 DATA 0,160,0,2,168,0,2,145,64
350 DATA 10,85,64,10,85,0,8,84,0
360 DATA 32,208,0,0,240,0,3,124,0
370 DATA 3,127,0,13,127,0,13,127,0
380 DATA 15,95,0,3,92,0,2,148,0
390 DATA 0,171,0,0,235,0,2,168,0
400 DATA 1,232,0,1,160,0,1,85,64
410 REM *********PHASE 4*************
420 FOR N=8384 TO 8446:READ Q:POKE N,Q:NEXT
430 DATA 0,160,0,2,168,0,2,145,64
440 DATA 10,85,64,10,85,0,40,84,0
450 DATA 0,208,0,0,240,0,3,124,0
460 DATA 3,95,0,15,95,0,15,95,0
470 DATA 15,215,0,3,213,0,2,169,0
480 DATA 0,171,0,0,171,128,2,174,128
490 DATA 10,186,0,10,21,0,5,85,64
500 REM *********PHASE 5*************
510 FOR N=8448 TO 8510:READ Q:POKE N,Q:NEXT
520 DATA 0,160,0,2,168,0,2,145,64
530 DATA 10,85,64,42,85,0,8,84,0
540 DATA 0,208,0,0,240,0,3,124,0
550 DATA 3,95,0,15,95,0,15,215,0
560 DATA 31,213,0,23,245,64,2,169,64
570 DATA 2,168,0,2,186,0,10,142,128
580 DATA 106,14,128,104,14,128,85,5,84
590 REM *********PHASE 6*************
600 FOR N=8512 TO 8574:READ Q:POKE N,Q:NEXT
610 DATA 0,160,0,2,168,0,2,145,64
620 DATA 10,85,64,42,85,0,8,84,0
630 DATA 0,208,0,0,240,0,3,124,0
640 DATA 3,95,0,15,95,0,15,95,0
650 DATA 15,95,0,7,215,0,6,149,0
660 DATA 2,168,0,2,171,0,2,186,0
670 DATA 2,186,0,10,232,0,5,85,80
680 REM *********PHASE 7*************
690 FOR N=8576 TO 8638:READ Q:POKE N,Q:NEXT
700 DATA 0,160,0,2,168,0,2,145,64
710 DATA 10,85,64,10,85,0,40,84,0
720 DATA 0,208,0,0,240,0,3,124,0
730 DATA 3,127,0,13,127,0,13,127,0
740 DATA 15,95,0,3,95,0,2,148,0
750 DATA 2,168,0,2,168,0,2,168,0
760 DATA 11,40,0,31,40,0,21,85,0
770 REM *********PHASE 8*************
780 FOR N=8640 TO 8702:READ Q:POKE N,Q:NEXT
790 DATA 0,160,0,2,168,0,2,145,64
800 DATA 10,85,64,10,85,0,8,84,0
810 DATA 32,208,0,0,240,0,3,124,0
820 DATA 1,127,0,13,127,0,5,255,0
830 DATA 5,255,0,1,127,0,1,93,0
840 DATA 2,168,0,2,168,0,10,234,0
850 DATA 27,10,0,20,10,0,5,69,80
860 REM *****************************
870 PRINT"SPRITE-DATEN 1 SIND INSTALLIERT!"
880 END